home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_PrevModule.dopus < prev    next >
Text File  |  1993-10-05  |  338b  |  27 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993 Henryk Richter
  3.    wählt vorheriges Module aus Liste
  4. */
  5. options results
  6.  
  7. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  8.  
  9.  address 'DOPUS.1'
  10.  
  11.  toptext 'Eagleplayer-Port not found'
  12.  
  13.  exit 0
  14.  
  15.  end
  16.  
  17. address 'rexx_EP'
  18.  
  19. PrevModule
  20. aha=result
  21.  
  22. address 'DOPUS.1'
  23.  
  24. toptext 'Eagleplayer: '||aha
  25.  
  26. exit
  27.